home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 November / Ahoy_Magazine_86-11_1986_Double_L.d64 / Date Ditty (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  426 b   |  14 lines
  1. 0 print"[147]":poke53280,6:poke53281,1:poke646,0
  2. 1 print" commodares....date ditty #1 ":print:print
  3. 2 rem     date ditty
  4. 3 rem solution by
  5. 4 rem     keith kushner
  6. 5 rem
  7. 10 rem -valid for 1900's after 2/28/1900
  8. 20 rem -enter july 4, 1986 as 7,4,86
  9. 30 rem
  10. 40 for n=0 to 6:read d$(n):next
  11. 50 data saturday,sunday,monday,tuesday,wednesday,thursday,friday
  12. 60 input"m,d,y";m,d,y:if m<3 then m=m+12:y=y-1
  13. 70 n=d+2*m+int(.6*(m+1))+y+int(y/4)+3 : n=int((n/7-int(n/7))*7+.5):print d$(n)
  14.